Option Explicit
Sub K_Sample010()
    Dim myRng  As Range
    Dim myAr() As Long
    Dim myCnt  As Long
    Dim myTmp  As Long
    Dim I      As Long
    Dim J      As Long
    Dim myFlg  As Boolean
    myCnt = 500						'}Cn
    ReDim myAr(1 To myCnt)
    Set myRng = Worksheets.Add.Cells(1, 1)
    '}Cs@P
    For I = 1 To myCnt
        Randomize
        myAr(I) = Int((myCnt * 5) * Rnd + 1)
        myRng.Cells(I) = myAr(I)
    Next
    'MsgBox "H@iƧ"
    Do
        myFlg = True
        For I = 1 To myCnt - 1
            For J = I + 1 To myCnt
                If myAr(I) > myAr(J) Then
                    myTmp = myAr(I)
                    myAr(I) = myAr(J)
                    myAr(J) = myTmp
                    myFlg = False
                    Exit For
                End If
            Next
        Next
    Loop Until myFlg
    With myRng.Offset(, 3)
        For I = 1 To myCnt
            .Cells(I) = myAr(I)
        Next
    End With
    MsgBox "Ƨǧ"
    Set myRng = Nothing					'
End Sub
